home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 7 / Night Owl Shareware (NOPV7)(Night Owl Publisher Inc.)(1992).bin / 038a / bash1_12.arj / BASH1-12.TAR / bash-1.12 / examples / functions / ksh-compat.~1~ < prev    next >
Text File  |  1991-12-31  |  3KB  |  154 lines
  1. #
  2. # ksh-compat -- functions and aliases to provide the beginnings of a ksh 
  3. #            environment for bash.
  4. #
  5. # Chet Ramey
  6. # chet@ins.CWRU.Edu
  7. #
  8. #
  9. # These are definitions for the ksh compiled-in `exported aliases'.  There
  10. # are others, but we already have substitutes for them: "history", "type",
  11. # and "hash".
  12. #
  13. alias r="fc -e -"
  14. alias functions="typeset -f"
  15. alias integer="typeset -i"
  16. alias nohup="nohup "
  17. alias true=":"
  18. alias false="let 0"
  19.  
  20. #
  21. # An almost-ksh compatible `whence' command.  This is as hairy as it is 
  22. # because of the desire to exactly mimic ksh (whose behavior was determined
  23. # empirically).
  24. # 
  25. # This depends somewhat on knowing the format of the output of the bash
  26. # `builtin type' command.
  27. #
  28.  
  29. whence ()
  30. {
  31.   local vflag
  32.   local path
  33.  
  34.   vflag=
  35.   path=
  36.  
  37.   if [ "$#" = "0" ]; then
  38.     echo "whence: argument expected"
  39.     return 1
  40.   fi
  41.  
  42.   case "$1" in
  43.     -v) vflag=1
  44.       shift 1
  45.       ;;
  46.     -*) echo "whence: bad option: $1"
  47.       return 1
  48.       ;;
  49.     *) ;;
  50.   esac
  51.  
  52.   if [ "$#" = "0" ]; then
  53.     echo "whence: bad argument count"
  54.     return 1
  55.   fi
  56.  
  57.   for cmd; do
  58.     if [ "$vflag" ]; then
  59.       echo $(builtin type $cmd | sed 1q)
  60.     else
  61.       path=$(builtin type -path $cmd)
  62.  
  63.       if [ "$path" ]; then
  64.         echo $path
  65.       else
  66.         case "$cmd" in
  67.           /*) echo ""
  68.             ;;
  69.           *)
  70.             case "$(builtin type -type $cmd)" in
  71.               "") echo ""
  72.                 ;;
  73.               *) echo "$cmd"
  74.                 ;;
  75.             esac
  76.           ;;
  77.         esac
  78.       fi
  79.     fi
  80.   done
  81.   return 0
  82. }
  83.  
  84. #
  85. # For real ksh homeboy fanatics, redefine the `type' builtin with a ksh
  86. # version.
  87. #
  88. #type()
  89. #{
  90. #    whence -v "$*"
  91. #}
  92.  
  93. cd ()
  94. {
  95.   case $# in
  96.     0) builtin cd "$HOME" ;;
  97.     1) builtin cd "$@" ;;
  98.     2) old="$1"
  99.         new="$2"
  100.         dir=$(echo "$PWD" | sed "s:$old:$new:g")
  101.         case "$dir" in
  102.         "$PWD")    echo "bash: cd: bad substitution" >&2
  103.             ;;
  104.         *)    echo "$dir"
  105.             builtin cd "$dir"
  106.             ;;
  107.         esac
  108.         ;;
  109.     *)    echo "cd: wrong arg count" >&2
  110.         ;;
  111.     esac
  112. }
  113.  
  114. #
  115. # ksh print emulation
  116. #
  117. #    print [-Rnprsu[n]] [arg ...]
  118. #
  119. #    -    end of options
  120. #    -R    BSD-style -- only accept -n, no escapes
  121. #    -n    do not add trailing newline
  122. #    -p    no-op (no coprocesses)
  123. #    -r    no escapes
  124. #    -s    no-op (print to the history file)
  125. #    -u n    redirect output to fd n
  126. #
  127.  
  128. print()
  129. {
  130.     local eflag=-e
  131.     local nflag=
  132.     local fd=1
  133.  
  134.     OPTIND=1
  135.     while getopts "Rnprsu:" c
  136.     do
  137.         case $c in
  138.         R)    eflag=
  139.             ;;
  140.         r)    eflag=
  141.             ;;
  142.         n)    nflag=-n
  143.             ;;
  144.         u)    redir=">&$OPTARG"
  145.             fd=$OPTARG
  146.             ;;
  147.         p|s)    ;;
  148.         esac
  149.     done
  150.     shift $[ $OPTIND - 1 ]
  151.  
  152.     echo $eflag $nflag "$@" >&$fd
  153. }
  154.